object frmLiquidarAvisos: TfrmLiquidarAvisos Left = 413 Top = 199 BorderStyle = bsNone Caption = 'frmLiquidarAvisos' ClientHeight = 468 ClientWidth = 747 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] OldCreateOrder = False Position = poScreenCenter OnClose = FormClose OnCreate = FormCreate PixelsPerInch = 96 TextHeight = 13 object Panel1: TPanel Left = 0 Top = 0 Width = 747 Height = 468 Align = alClient BevelWidth = 3 BorderWidth = 1 TabOrder = 0 object Label6: TLabel Left = 16 Top = 432 Width = 217 Height = 22 Caption = 'Liquidar Avisos de D�bito' Font.Charset = ANSI_CHARSET Font.Color = clBlack Font.Height = -19 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object Label1: TLabel Left = 30 Top = 13 Width = 680 Height = 41 Alignment = taCenter AutoSize = False Caption = 'Seleccione o(s) Aviso(s) de D�bito que pretende liquidar. Se pre' + 'tender visualizar cada Recibo antes da sua grava��o, marque a ca' + 'ixa "Visualizar antes de Gravar".'#13#10'Nota: Tem sempre hip�tese de ' + 'alterar mais tarde cada Recibo gravado.' Font.Charset = DEFAULT_CHARSET Font.Color = clNavy Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False WordWrap = True end object SpeedButton1: TSpeedButton Left = 185 Top = 231 Width = 75 Height = 22 Caption = 'Adicionar' Flat = True OnClick = SpeedButton1Click end object SpeedButton2: TSpeedButton Left = 485 Top = 231 Width = 80 Height = 22 Caption = 'Ret. Todas' Flat = True OnClick = SpeedButton2Click end object SpeedButton3: TSpeedButton Left = 285 Top = 231 Width = 80 Height = 22 Caption = 'Adic. Todas' Flat = True OnClick = SpeedButton3Click end object SpeedButton4: TSpeedButton Left = 385 Top = 231 Width = 75 Height = 22 Caption = 'Retirar' Flat = True OnClick = SpeedButton4Click end object Label2: TLabel Left = 18 Top = 242 Width = 58 Height = 13 Caption = 'A liquidar:' Font.Charset = DEFAULT_CHARSET Font.Color = clRed Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object Label3: TLabel Left = 18 Top = 45 Width = 73 Height = 13 Caption = 'Por Liquidar:' Font.Charset = DEFAULT_CHARSET Font.Color = clRed Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object RxLabel1: TRxLabel Left = 140 Top = 43 Width = 10 Height = 17 Alignment = taRightJustify Caption = '0' Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -15 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object RxLabel2: TRxLabel Left = 140 Top = 240 Width = 10 Height = 17 Alignment = taRightJustify Caption = '0' Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -15 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object BitBtn1: TBitBtn Left = 563 Top = 432 Width = 75 Height = 25 Caption = '&OK' TabOrder = 0 OnClick = BitBtn1Click Kind = bkOK end object BitBtn2: TBitBtn Left = 653 Top = 432 Width = 75 Height = 25 Caption = '&Cancelar' TabOrder = 1 Kind = bkCancel end object RxDBGrid3: TRxDBGrid Left = 15 Top = 58 Width = 718 Height = 170 Hint = 'Clique duas vezes '#13#10' para Adicionar' Color = 12572623 Ctl3D = True DataSource = DataSource1 FixedColor = 13551795 Options = [dgTitles, dgRowLines, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete] ParentCtl3D = False ParentShowHint = False ShowHint = True TabOrder = 2 TitleFont.Charset = DEFAULT_CHARSET TitleFont.Color = clWindowText TitleFont.Height = -11 TitleFont.Name = 'MS Sans Serif' TitleFont.Style = [] OnDblClick = SpeedButton1Click Columns = < item Expanded = False FieldName = 'Data' Width = 70 Visible = True end item Expanded = False FieldName = 'N' Title.Caption = 'N�' Width = 60 Visible = True end item Expanded = False FieldName = 'Nome' Width = 164 Visible = True end item Expanded = False FieldName = 'Referente' Width = 321 Visible = True end item Expanded = False FieldName = 'Valor1' Width = 80 Visible = True end> end object RxDBGrid1: TRxDBGrid Left = 15 Top = 256 Width = 718 Height = 170 Hint = 'Clique duas vezes'#13#10' para Retirar' Color = 12572623 Ctl3D = True DataSource = DataSource2 FixedColor = 13551795 Options = [dgTitles, dgRowLines, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete] ParentCtl3D = False ParentShowHint = False ShowHint = True TabOrder = 3 TitleFont.Charset = DEFAULT_CHARSET TitleFont.Color = clWindowText TitleFont.Height = -11 TitleFont.Name = 'MS Sans Serif' TitleFont.Style = [] OnDblClick = SpeedButton4Click Columns = < item Expanded = False FieldName = 'Data' Width = 70 Visible = True end item Expanded = False FieldName = 'N' Title.Caption = 'N�' Width = 60 Visible = True end item Expanded = False FieldName = 'Nome' Width = 164 Visible = True end item Expanded = False FieldName = 'Referente' Width = 321 Visible = True end item Expanded = False FieldName = 'Valor1' Width = 80 Visible = True end> end object CheckBox1: TCheckBox Left = 337 Top = 438 Width = 144 Height = 17 Caption = 'Visualizar antes de Gravar' TabOrder = 4 end object CheckBox2: TCheckBox Left = 490 Top = 438 Width = 57 Height = 17 Caption = 'Imprimir' TabOrder = 5 end object ComboBox5: TComboBox Left = 624 Top = 32 Width = 97 Height = 21 Hint = 'Muda a ordena��o da lista' Style = csDropDownList Color = clInfoBk Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ItemHeight = 13 ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 6 Visible = False OnChange = ComboBox5Change Items.Strings = ( 'Data' 'N�' 'Nome' 'Referente') end end object DataSource1: TDataSource DataSet = MemoryTable1 Left = 48 Top = 8 end object DataSource2: TDataSource DataSet = MemoryTable2 Left = 128 Top = 8 end object MemoryTable1: TMemoryTable Left = 16 Top = 8 object MemoryTable1ID: TIntegerField FieldName = 'ID' end object MemoryTable1N: TIntegerField FieldName = 'N' end object MemoryTable1Data: TDateTimeField FieldName = 'Data' end object MemoryTable1Nome: TStringField FieldName = 'Nome' Size = 50 end object MemoryTable1Referente: TStringField FieldName = 'Referente' Size = 50 end object MemoryTable1Valor1: TFloatField FieldName = 'Valor1' end object MemoryTable1Valor2: TFloatField FieldName = 'Valor2' end object MemoryTable1Fraccao: TStringField FieldName = 'Fraccao' Size = 15 end object MemoryTable1Piso: TStringField FieldName = 'Piso' Size = 15 end object MemoryTable1Porta: TStringField FieldName = 'Porta' Size = 10 end object MemoryTable1Cdigo: TIntegerField FieldName = 'Codigo' end object MemoryTable1Contribuinte: TStringField FieldName = 'Contribuinte' Size = 12 end object MemoryTable1TipoDocumento: TStringField FieldName = 'Tipo Documento' end object MemoryTable1Permilagem: TStringField FieldName = 'Permilagem' Size = 8 end object MemoryTable1DataLimite: TDateTimeField FieldName = 'Data Limite' end object MemoryTable1TipoPagamento: TStringField FieldName = 'Tipo Pagamento' Size = 15 end object MemoryTable1Honorrios: TFloatField FieldName = 'Honorarios' end object MemoryTable1Relao: TIntegerField FieldName = 'Relacao' end object MemoryTable1Anulado: TBooleanField FieldName = 'Anulado' end object MemoryTable1Liquidado: TBooleanField FieldName = 'Liquidado' end object MemoryTable1rea: TFloatField FieldName = 'Area' end object MemoryTable1Original: TBooleanField FieldName = 'Original' end object MemoryTable1LancaGas: TBooleanField FieldName = 'LancaGas' end object MemoryTable1LeituraAnterior: TFloatField FieldName = 'LeituraAnterior' end object MemoryTable1LeituraActual: TFloatField FieldName = 'LeituraActual' end object MemoryTable1Consumo: TFloatField FieldName = 'Consumo' end object MemoryTable1PrecoUnitarioGas: TFloatField FieldName = 'PrecoUnitarioGas' end object MemoryTable1ValorPagar: TFloatField FieldName = 'ValorPagar' end object MemoryTable1AluguerContador: TFloatField FieldName = 'AluguerContador' end object MemoryTable1TaxaServico: TFloatField FieldName = 'TaxaServico' end object MemoryTable1OutrosServicos: TFloatField FieldName = 'OutrosServicos' end object MemoryTable1Apartamento: TStringField FieldName = 'Apartamento' Size = 15 end object MemoryTable1Saldo: TFloatField FieldName = 'Saldo' end object MemoryTable1Observacoes: TStringField FieldName = 'Observacoes' end object MemoryTable1Linhas: TStringField FieldName = 'Linhas' end object MemoryTable1PorLiquidar: TFloatField FieldName = 'PorLiquidar' end object MemoryTable1LancarRD: TBooleanField FieldName = 'LancarRD' end object MemoryTable1FolhaRD: TStringField FieldName = 'FolhaRD' end object MemoryTable1RubricaRD: TStringField FieldName = 'RubricaRD' Size = 25 end object MemoryTable1ReferenciaRD: TStringField FieldName = 'ReferenciaRD' Size = 15 end object MemoryTable1LancarBancos: TBooleanField FieldName = 'LancarBancos' end object MemoryTable1ContaBancos: TStringField FieldName = 'ContaBancos' end object MemoryTable1RubricaBancos: TStringField FieldName = 'RubricaBancos' Size = 25 end object MemoryTable1ReferenciaBancos: TStringField FieldName = 'ReferenciaBancos' Size = 15 end object MemoryTable1Bloco: TStringField FieldName = 'Bloco' end object MemoryTable1Topologia: TStringField FieldName = 'Topologia' Size = 10 end end object MemoryTable2: TMemoryTable Left = 88 Top = 8 object MemoryTable2ID: TIntegerField FieldName = 'ID' end object MemoryTable2N: TIntegerField FieldName = 'N' end object MemoryTable2Data: TDateTimeField FieldName = 'Data' end object MemoryTable2Nome: TStringField FieldName = 'Nome' Size = 50 end object MemoryTable2Referente: TStringField FieldName = 'Referente' Size = 50 end object MemoryTable2Valor1: TFloatField FieldName = 'Valor1' end object MemoryTable2Valor2: TFloatField FieldName = 'Valor2' end object MemoryTable2Fraccao: TStringField FieldName = 'Fraccao' Size = 15 end object MemoryTable2Piso: TStringField FieldName = 'Piso' Size = 15 end object MemoryTable2Porta: TStringField FieldName = 'Porta' Size = 10 end object MemoryTable2Cdigo: TIntegerField FieldName = 'Codigo' end object MemoryTable2Contribuinte: TStringField FieldName = 'Contribuinte' Size = 12 end object MemoryTable2TipoDocumento: TStringField FieldName = 'Tipo Documento' end object MemoryTable2Permilagem: TStringField FieldName = 'Permilagem' Size = 8 end object MemoryTable2DataLimite: TDateTimeField FieldName = 'Data Limite' end object MemoryTable2TipoPagamento: TStringField FieldName = 'Tipo Pagamento' Size = 15 end object MemoryTable2Honorrios: TFloatField FieldName = 'Honorarios' end object MemoryTable2Relao: TIntegerField FieldName = 'Relacao' end object MemoryTable2Anulado: TBooleanField FieldName = 'Anulado' end object MemoryTable2Liquidado: TBooleanField FieldName = 'Liquidado' end object MemoryTable2rea: TFloatField FieldName = 'Area' end object MemoryTable2Original: TBooleanField FieldName = 'Original' end object MemoryTable2OutrosServicos: TFloatField FieldName = 'OutrosServicos' end object MemoryTable2TaxaServico: TFloatField FieldName = 'TaxaServico' end object MemoryTable2AluguerContador: TFloatField FieldName = 'AluguerContador' end object MemoryTable2ValorPagar: TFloatField FieldName = 'ValorPagar' end object MemoryTable2PrecoUnitarioGas: TFloatField FieldName = 'PrecoUnitarioGas' end object MemoryTable2Consumo: TFloatField FieldName = 'Consumo' end object MemoryTable2LeituraActual: TFloatField FieldName = 'LeituraActual' end object MemoryTable2LeituraAnterior: TFloatField FieldName = 'LeituraAnterior' end object MemoryTable2LancaGas: TBooleanField FieldName = 'LancaGas' end object MemoryTable2Apartamento: TStringField FieldName = 'Apartamento' Size = 15 end object MemoryTable2Saldo: TFloatField FieldName = 'Saldo' end object MemoryTable2Observacoes: TStringField FieldName = 'Observacoes' end object MemoryTable2Linhas: TStringField FieldName = 'Linhas' end object MemoryTable2PorLiquidar: TFloatField FieldName = 'PorLiquidar' end object MemoryTable2LancarRD: TBooleanField FieldName = 'LancarRD' end object MemoryTable2FolhaRD: TStringField FieldName = 'FolhaRD' end object MemoryTable2RubricaRD: TStringField FieldName = 'RubricaRD' Size = 25 end object MemoryTable2ReferenciaRD: TStringField FieldName = 'ReferenciaRD' Size = 15 end object MemoryTable2LancarBancos: TBooleanField FieldName = 'LancarBancos' end object MemoryTable2ContaBancos: TStringField FieldName = 'ContaBancos' end object MemoryTable2RubricaBancos: TStringField FieldName = 'RubricaBancos' Size = 25 end object MemoryTable2ReferenciaBancos: TStringField FieldName = 'ReferenciaBancos' Size = 15 end object MemoryTable2Bloco: TStringField FieldName = 'Bloco' end object MemoryTable2Topologia: TStringField FieldName = 'Topologia' Size = 10 end end object tAuxRecibos: TTable AfterPost = tAuxRecibosAfterPost DatabaseName = 'Database1' TableName = 'Recibos.DB' Left = 176 Top = 8 end end